(fill-individual-paragraphs): Before deleting

the inserted newline, verify that one was really inserted.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 0886ecfb152ff3b861e091188c608a320b2e28a7..a4b515c0b659fd07ba7ecfbaedce25d58ab065ad 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -1055,7 +1055,8 @@ Also, if CITATION-REGEXP is non-nil,  don't fill header lines."
          ;; Fill this paragraph, but don't add a newline at the end.
          (let ((had-newline (bolp)))
            (fill-region-as-paragraph start (point) justify)
-           (or had-newline (delete-char -1))))))))
+           (if (and (bolp) (not had-newline))
+               (delete-char -1))))))))
 
 (defun fill-individual-paragraphs-prefix (citation-regexp)
   (or (let ((adaptive-fill-first-line-regexp "")